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~-TITLE FORSWRITE_DO = entry point for FORTRAN WRITE DIRECT OBJECT-FORMATTED 
Fi 


IDENT /1-012/ Le: FORWRITDO.MAR Edit: JAW101 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATI OM NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; ABSTRACT: 


This module co 
WRITE DIRECT O 
a call to FORS$ 
parameter List 


; MAINTENANCE NOTE: 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 


- TRANSFER FORSWRITE DO 
- MASK FOR$$I0_BEG 
BRW FORSWRITE_DO+2 


point for the FORTRAN 

/O0 statement. It is simply 
in RO which describe the 

terprets the parameters. 
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This puts the correct mask in entry wecter. thet is FORSS$IO_BES entry mask. 


Furthermore this module must only use RO an 


since any other register might not be in the entry mask for FORSSI0_BEG. 


: ; ENVIRONMENT: User access mode; mixture of AST level or not 
; AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


; moet Ite BY: 


: FACILITY: FORTRAN Support Library - user callable 
. Hastings, 29-July-78 
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0 : -SBTTL HISTORY ; Detailed Current Edit History 
: 53 ; Edit History for Version 1 
61 ; gn} - Add comment about vectors. TNH 23-June-78 
38 $¢ ; O-12 = Pass arg in RO, not ROR, add comments. TNH 29-July-78 
00 65 ; 1-001 = Update version number and copyright notice. JBS 16-NOV-78 
000 64; 1- §¢ - Change statement type symbols to be LUBSK... JBS 07-DEC-78 
000 65 ; 1-003 - Change statement type symbols to be ISBSK..._ JBS 11-DEC-78 
000 96 ; 1-004 = Add “"' to the PSECT directive. JBS 22-DEC- 
88 67 ; 1-005 = Add FORSREAD_KF, FORSREAD_KO, FORSREWRITE SF, FORSREWRITE_SO, 
0 68 ; FORSREAD_IF, FORSREAD_10, FORSWRITE_IF, FORSWRITE_10, 
99 § : FORSREAD KY FORSREWRITE_SU, 
00 0 0; SBL 2-May-1979 
i 71 ; 1-006 = Remove all entry potote that need object time formatting, 
000 Me 3 utting them in FORSENTRY_OBJ so that we can arrange to 
000 ee oad the format compiler only when it is needed. 
000 74; JBS 26-JUN-197 
000 75 ; 1-007 = Remove entry point FORSENCODE_MF; we will code a new module 
0000 76; for it and FOR$$10_BEG bo see how much 1/0 initiation time 
44 3 improves. JBS 02-JUL-19 
000 78 ; 1-008 - Do Likewuse for FORSREAD_DU and FORSWRITE_DU. JBS 03-JUL-1979 
44 79 ; 1-009 = Remove all entry points and add FORSWRITE_DO; each entry 
000 80 ; point gets its own module do we can selectively load 
0000 81 ; the eovessery UDF and REC modules. JBS 09-JUL-1979 
0000 § ; 1-010 - Correct some typos in the references to the REC 
860 2 and UDF levels. JBS 12-JUL-1979 
000 4 ; 1-011 = New parameter format for FORS$IO_BEG. SBL 5-Dec-1979 
0000 5 ; 1-012 - Change BRW FORSSIO_BEG+2 to JMP G*FORSSIO_BEG+2. JAW 21-Feb-1981 
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-SBTTL DECLARATIONS 


; INCLUDE FILES: 


° 


SFORPAR ; Define inter-module FORTRAN symbols 
SISBDEF : Define statement type symbols 


: EXTERNAL SYMBOLS: 


-DSABL GBL ; Declare all external symbols 
-EXTRN FORSS$IO_BEG ; common 1/0 statement processing 


fog 

3; The potenti references are to make sure the necessary UDF and REC 
: modules are loaded. These are the routines which are called through 
3; the dispatch tables in FORSSDISPAT. 


.EXTRN FORSSUDF_WFO, FORSSUDF_WF1, FORSSUDF_WF9 
EXTRN FORSSREC~WDO, FORSSREC—WD1, FORSSREC—WD9 


Ooo 
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: MACROS: 
NONE 
PSECT DECLARATIONS: 


-PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,.RD,NOWRT,LONG 


> EQUATED SYMBOLS: 


OWN STORAGE: 
NONE 
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-SBTTL FORSWRITE_DO - WRITE DIRECT OBJECT-FORMATTED 


ae 
FUNCTIONAL DESCRIPTION: 


Initialize the FORTRAN 1/0 O ayet em to perform 
a WRITE DIRECT OBJECT-FORMATTED 1/0 statement. 


CALLING SEQUENCE: 


CALL FORSWRITE_DO (unit.rl.v, format 7395 -mbu.ra 
, err_adr.j.r t, end_ adr.j.r 


INPUT PARAMETERS: 


unit.rl.v Logical unit number 
ormat_adr.mbu.ra adr. of toegs ted corean byte array 
err_adr.j.r optional ERR= addres 
end_ “adr. ir optional END= ederese 


IMPLICIT INPUTS: 

NONE except those used by FORS$I0_BEG. 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE except those left by FORS$I0_BEG. 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE except those of FORS$I0_BEG. 


FORSWRITE _DO:: .MASK tones BEG 
MOVZWL a sBsx ST_TY_WDF+ 
aFORSV_OBJ"FMT>, RO Statement type 
JMP G“FORSSIO _BEG+2 branch past call mask 
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Symbol table -” aes 7 90:87:88 FORRTL.SRCIFORWRITDO.MAR; 1 a (ay 
FORSS1O BEG eeeneeee 86 
FORSSREC WOO teneeree =X 
FORSSREC_WD eereeree x 
FORSSREC WD eerereee x 
FORSSUDF “UFO eeeeeree x 
FORSSUDF _ WF eereeree =X 
FORSSUDF “WF9 eeeeneee = § 6X 
FORSV_OBJ_FMT = $88 08 
FORSWRITE-DO 0 4 RG 01 
1SBSK_ST_TY_wDF = 0000000 

por ereeer eer eer ecreceat 

! Psect synopsis ! 

teeecsaneonecceaoccend} 
PSECT name Allocation PSECT No. Attributes 
o SS , 00000000 <( 7% 00 ¢ 0.) NOPIC  USR ON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_FORSCODE 0000000D <( Tue OTE Ved PIC USR ON REL LCL SHR EXE RD NOWRT NOVEC LONG 

doses momen rene meee meee + 
; Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 


Initialization 3 0: 8:90 -08 8:00: 1.09 
Command processing 11 0:00:00.59 0:00: 3°45 
Pass 1 126 0:00: \-¢3 0:00:03.7 
Symbol table sort 0 0:00:00.19 0:00:0 39 
ass 46 0:00: 8-08 B83! | 
Symbol table output 0:00:00.0 0: 3: ‘ 
Psect synopsis output 0:00: 8 00:00:00.0 
Cross-reference output 0:00:00. See 
Assembler run totals 32 00:00:02.62 00:00:12.71 


The working set Limit was 900 pages. 


6689 bytes (14 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 187 non-local and 0 local symbols. 
179 source Lines were read in Pass 1, producing 8 object records in Pass 2. 

9 pages of virtual memory were used to define ¢ macros. 
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Macro Library name Macros defined 


-$255$DUAB:CFORRTL QBJIFORRTLMLBSt 
$255$DUA28: (SYSLIBJSTARLET.MLB; 

TOTALS (all Libraries) 

183 GETS were required to define 2 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESS1ON/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORWRITDO/OBJ=OBJ$:FORWRITDO MSRC$:FORWRITDO/UPDATE=(ENHS: FORWRITDO) +L 1 


T CORPORATION 
PROPRIETARY 
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